program exam2task2;
var num,prev:real;
counter:integer;

begin
writeln('Enter a sequence of non-zero real numbers ended by 0');
read(num);

prev:=0;
counter:=0;
while num <> 0 do
begin
if num > prev then counter:=counter+1
else counter:=counter+0;
prev:=num;
read(num);
end;
writeln('How many numbers larger than previous? ', counter);
end.

------------------ or ------------------

Program Task2;
Const last=0;
Var number, predecessor: real;
Result: integer;
Begin
Writeln(Expressing how many values in the input are larger then their predecessors.);
Write(Input: );
Number:=0; predecessor:=0; result:=0;
Read(number);
While number <> last do
Begin
If number > predecessor then result:=result+1;
Predecessor:=number;
Read(number);
End;
If result>0 then write(Larger then thein predecessors: ,result);
End.